<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<% 
Response.Expires=0 
%>
<!-- #INCLUDE FILE="CheckConnection.inc" -->
<%
''response.write Request.Querystring

%>
<!--METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"-->
<%
dim Node, CN, DTA , cd, name
Node=request("Node")
if isEmpty(Node) then Node="_P"
Name=request("AN")
if isEmpty(Name) then response.end
CN=request("CN")
if isEmpty(CN) then CN=""
Cd=request("Cd")
if isEmpty(Cd) then Cd=""

DTA=request("DTA")
if isEmpty(DTA) then DTA=""


	Dim cnn
	Dim connStr
	dim cmd
	dim R
	Set cnn=Server.CreateObject("ADODB.Connection")
    Set cmd=Server.CreateObject("ADODB.Command")
%>
<!-- #INCLUDE FILE="Connection.inc" -->
<%

	cnn.open connStr
	Set cmd.ActiveConnection = cnn
	cmd.CommandType=adCmdStoredProc
	cmd.CommandText = "Terminal.sp_ZeroGoodsListRefresh"
	Cmd.Parameters.Append Cmd.CreateParameter("@AutomatNumber", adVarChar, adParamInput,24)
	Cmd("@AutomatNumber")=Request.Querystring("AN")
	cmd.execute
	set cmd=nothing


	Set cmd=Server.CreateObject("ADODB.Command")
	Set cmd.ActiveConnection = cnn
	cmd.CommandType=adCmdStoredProc
	cmd.CommandText = "Terminal.sp_GetStandByGoodsList19bis"
	Cmd.Parameters.Append Cmd.CreateParameter("@AN", adVarChar, adParamInput,24)
	Cmd.Parameters.Append Cmd.CreateParameter("@Persons", adVarChar, adParamOutput,4000)
	Cmd.Parameters.Append Cmd.CreateParameter("@DisabledPayees", adVarChar, adParamOutput,8000)
	Cmd.Parameters.Append Cmd.CreateParameter("@Settings", adVarChar, adParamOutput,4000)
	Cmd("@AN")=name
	cmd.execute
%>
<%=cmd("@Settings")%>
<%=cmd("@Persons")%>
<%=cmd("@DisabledPayees")%>
</TerminalSettings>
<%
	set cmd=nothing
	cnn.close
	set cnn=nothing

%>



